home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / minihost.arc / MOD2400B.BAS < prev    next >
BASIC Source File  |  1986-07-23  |  676b  |  15 lines
  1. 10 REM Written by Don Mankin 916-622-4300  (who doesn't have a internal modem)
  2. 20 REM
  3. 30 REM Modified by Reginald Hirsh 713-961-7800  (who does! Thanks Reginald)
  4. 40 REM
  5. 50 REM
  6. 60 KEY OFF
  7. 70 CLS:PRINT"Preparing Hayes / US Robotics 2400B for MINIHOST"
  8. 80 LOCATE 3,1:PRINT"Enter port # (1/2): ";:ZZ$=INPUT$(1):IF ZZ$=CHR$(13) THEN PRINT:PRINT:END ELSE IF INSTR("12",ZZ$) = 0 THEN 80
  9. 90 PRINT ZZ$:PRINT:PRINT"One moment please...."
  10. 100 COM.PORT$="COM"+ZZ$
  11. 110 A$="AT&C1&D2&T5L3B1E1V1M1S0=0&W"
  12. 120 OPEN COM.PORT$ + ":2400,N,8,1,RS,CD,DS" AS #1:PRINT #1,"ATZ":GOSUB 140
  13. 130 PRINT #1,A$:PRINT:PRINT"Preparation completed":PRINT:END
  14. 140 FOR X = 1 TO 5000:NEXT X:RETURN
  15.